'==================================================================================================
'	Author		David Segura
'	URL			http://winpeguy.com/
'	Source		http://winpe.codeplex.com/
'	Version		20130910
'==================================================================================================
'	Purpose:
'	Microsoft Diagnostic and Recovery Toolset related subroutines and functions
'==================================================================================================
'	File Locations in Windows:
'	%DeployRoot%\Boot\+WinPE\Menu\Scripts\MS-DaRT.vbs
'==================================================================================================
'	File Location in WinPE:
'	X:\Menu\Scripts\MS-DaRT.vbs
'==================================================================================================
'	Configuration:
'	None.  Editing this file is not recommended
'==================================================================================================
'	Change Log:
'	20130910	Codeplex Beta
'==================================================================================================
	Sub subDartRemoteControl
		If objFSO.FileExists(envSystem32 & "\RemoteRecovery.exe") Then
			sCmd = envSystem32 & "\RemoteRecovery.exe"
			objShell.Run sCmd
		Else
			MsgBox "Cannot find " & envSystem32 & "\RemoteRecovery.exe" & vbCrLf & "" & vbCrLf & _
			"Microsoft DaRT Tools may not be installed",16,MsgBoxTitleShort & "Microsoft DaRT Tools"
		End If
	End Sub
'==================================================================================================
	Sub subDartSystemRecovery
		If objFSO.FileExists(envSystemDrive & "\Sources\Recovery\RecEnv.exe") Then
			sCmd = envSystemDrive & "\Sources\Recovery\RecEnv.exe"
			objShell.Run sCmd
		Else
			MsgBox "Cannot find " & strSystemDrive & "\Sources\Recovery\RecEnv.exe" & vbCrLf & "" & vbCrLf & _
			"Microsoft DaRT Tools may not be installed",16,MsgBoxTitleShort & "Microsoft DaRT Tools"
		End If
	End Sub
'==================================================================================================
	Sub subDartTools
		If objFSO.FileExists(strSystemDrive & "\Sources\Recovery\Tools\MSDartTools.exe") Then
			sCmd = strSystemDrive & "\Sources\Recovery\Tools\MSDartTools.exe"
			objShell.Run sCmd
		Else
			MsgBox "Cannot find " & strSystemDrive & "\Sources\Recovery\Tools\MSDartTools.exe" & vbCrLf & "" & vbCrLf & _
			"Microsoft DaRT Tools may not be installed",16,MsgBoxTitleShort & "Microsoft DaRT Tools"
		End If
	End Sub
'==================================================================================================
	Sub subWindowsExplorer
		If objFSO.FileExists(envSystem32 & "\explorer.exe") Then
			sCmd = envSystem32 & "\explorer.exe"
			objShell.Run sCmd
		Else
			MsgBox "Cannot find " & envSystem32 & "\explorer.exe" & vbCrLf & "" & vbCrLf & _
			"Microsoft DaRT Tools may not be installed",16,MsgBoxTitleShort & "Microsoft DaRT Tools"
		End If
	End Sub
'==================================================================================================